home *** CD-ROM | disk | FTP | other *** search
/ Freesoft 1997 May / Freesoft_1997-05_cd.bin / inzer / minolta / drivers / WL400 / W3.1 disk 1 / MSDETECT.IN_ / MSDETECT.IN
Text File  |  1994-12-06  |  8KB  |  186 lines
  1. DECLARE FUNCTION CbGetVersionOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  2. DECLARE FUNCTION LGetVersionNthField LIB "msdetstf.dll" (szVersion$, nField%) AS LONG
  3. DECLARE FUNCTION LcbGetSizeOfFile LIB "msdetstf.dll" (szFile$) AS LONG
  4. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  5. DECLARE FUNCTION FGetLocalHardDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  6. DECLARE FUNCTION FGetRemovableDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  7. DECLARE FUNCTION FGetNetworkDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  8. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  9. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  10. DECLARE FUNCTION FIsValidDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  11. DECLARE FUNCTION FIsLocalHardDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  12. DECLARE FUNCTION FIsRemoveDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  13. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  14. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  15. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  16. DECLARE FUNCTION CbGetDateOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  17. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  18. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  19. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  20. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  21. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  22. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  23. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  24. DECLARE FUNCTION FGetParallelPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  25. DECLARE FUNCTION FGetSerialPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  26. DECLARE FUNCTION FHas87MathChip LIB "msdetstf.dll" AS INTEGER
  27. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  28. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  29. DECLARE FUNCTION WGetConfigSmartdrvSize LIB "msdetstf.dll" AS INTEGER
  30. DECLARE FUNCTION WGetConfigRamdriveSize LIB "msdetstf.dll" AS INTEGER
  31. DECLARE FUNCTION WGetConfigNumBuffers LIB "msdetstf.dll" AS INTEGER
  32. DECLARE FUNCTION WGetConfigNumFiles LIB "msdetstf.dll" AS INTEGER
  33. DECLARE FUNCTION WGetConfigLastDrive LIB "msdetstf.dll" AS INTEGER
  34. DECLARE FUNCTION FIsDriverInConfig LIB "msdetstf.dll" (szDrv$) AS INTEGER
  35. DECLARE FUNCTION CbFindTargetOnEnvVar LIB "msdetstf.dll" (szFile$, szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  36. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  37. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  38. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  39. DECLARE FUNCTION IsDriveLocalHard (szDrive$) AS INTEGER
  40. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  41. DECLARE SUB GetValidDrivesList (szSymbol$)
  42. DECLARE SUB GetLocalHardDrivesList (szSymbol$)
  43. DECLARE SUB GetNetworkDrivesList (szSymbol$)
  44. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  45. DECLARE FUNCTION GetDOSMajorVersion AS INTEGER
  46. DECLARE FUNCTION GetDOSMinorVersion AS INTEGER
  47. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  48. DECLARE FUNCTION GetNumWinApps AS INTEGER
  49. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  50. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  51. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  52. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  53. DECLARE FUNCTION GetSizeOfFile (szFile$) AS LONG
  54. DECLARE FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) AS STRING
  55. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  56. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  57. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  58. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  59. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  60. DECLARE FUNCTION IsDriverInConfig (szDrv$) AS INTEGER
  61. DECLARE SUB GetParallelPortsList (szSymbol$)
  62. DECLARE SUB GetSerialPortsList (szSymbol$)
  63. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  64. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  65. FUNCTION IsDriveLocalHard (szDrive$) STATIC AS INTEGER
  66. IsDriveLocalHard = FIsLocalHardDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  67. END FUNCTION
  68. FUNCTION IsDriveNetwork (szDrive$) STATIC AS INTEGER
  69. IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  70. END FUNCTION
  71. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC AS LONG
  72. GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  73. END FUNCTION
  74. SUB GetValidDrivesList (szSymbol$) STATIC
  75. if FGetValidDrivesList(szSymbol$) = 0 then
  76. ERROR STFERR
  77. end if
  78. END SUB
  79. SUB GetLocalHardDrivesList (szSymbol$) STATIC
  80. if FGetLocalHardDrivesList(szSymbol$) = 0 then
  81. ERROR STFERR
  82. end if
  83. END SUB
  84. SUB GetNetworkDrivesList (szSymbol$) STATIC
  85. if FGetNetworkDrivesList(szSymbol$) = 0 then
  86. ERROR STFERR
  87. end if
  88. END SUB
  89. FUNCTION GetDOSMajorVersion STATIC AS INTEGER
  90. GetDOSMajorVersion = WGetDOSMajorVersion
  91. END FUNCTION
  92. FUNCTION GetDOSMinorVersion STATIC AS INTEGER
  93. GetDOSMinorVersion = WGetDOSMinorVersion
  94. END FUNCTION
  95. FUNCTION GetEnvVariableValue (szEnvVar$) STATIC AS STRING
  96. cb% = 1024
  97. szBuf$ = STRING$(cb%, 32)
  98. cbRet% = CbGetEnvVariableValue(szEnvVar$, szBuf$, cb%)
  99. GetEnvVariableValue = szBuf$
  100. szBuf$ = ""
  101. END FUNCTION
  102. FUNCTION GetNumWinApps STATIC AS INTEGER
  103. GetNumWinApps = WGetNumWinApps
  104. END FUNCTION
  105. FUNCTION DoesFileExist (szFileName$, mode%) STATIC AS INTEGER
  106. DoesFileExist = FDoesFileExist(szFileName$, mode%)
  107. END FUNCTION
  108. FUNCTION GetDateOfFile (szFile$) STATIC AS STRING
  109. cb% = 20
  110. szBuf$ = STRING$(cb%, 32)
  111. cbRet% = CbGetDateOfFile(szFile$, szBuf$, cb%)
  112. GetDateOfFile = szBuf$
  113. szBuf$ = ""
  114. END FUNCTION
  115. FUNCTION GetVersionOfFile (szFile$) STATIC AS STRING
  116. cb% = 30
  117. szBuf$ = STRING$(cb%, 32)
  118. cbRet% = CbGetVersionOfFile(szFile$, szBuf$, cb%)
  119. GetVersionOfFile = szBuf$
  120. szBuf$ = ""
  121. END FUNCTION
  122. FUNCTION GetVersionNthField (szVersion$, nField%) STATIC AS LONG
  123. GetVersionNthField = LGetVersionNthField(szVersion$, nField%)
  124. END FUNCTION
  125. FUNCTION GetSizeOfFile (szFile$) STATIC AS LONG
  126. GetSizeOfFile = LcbGetSizeOfFile(szFile$)
  127. END FUNCTION
  128. FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) STATIC AS STRING
  129. cb% = 512
  130. szBuf$ = STRING$(cb%, 32)
  131. cbRet% = CbFindTargetOnEnvVar(szFile$, szEnvVar$, szBuf$, cb%)
  132. IF cbRet% >= cb% THEN
  133. ERROR STFERR
  134. END IF
  135. szBuf$ = RTRIM$(szBuf$)
  136. IF MID$(szBuf$, 1, 1) = "\" THEN
  137. szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  138. ELSEIF Len(szBuf$) > 0 AND MID$(szBuf$, 2, 1) <> ":" THEN
  139. szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
  140. END IF
  141. FindTargetOnEnvVar = szBuf$
  142. szBuf$ = ""
  143. END FUNCTION
  144. FUNCTION FindFileInTree (szFile$, szDir$) STATIC AS STRING
  145. cb% = 512
  146. szBuf$ = STRING$(cb%, 32)
  147. cbRet% = CbFindFileInTree(szFile$, szDir$, szBuf$, cb%)
  148. FindFileInTree = szBuf$
  149. szBuf$ = ""
  150. END FUNCTION
  151. FUNCTION IsDriverInConfig (szDrv$) STATIC AS INTEGER
  152. IsDriverInConfig = FIsDriverInConfig(szDrv$)
  153. END FUNCTION
  154. SUB GetParallelPortsList (szSymbol$) STATIC
  155. if FGetParallelPortsList(szSymbol$) = 0 then
  156. ERROR STFERR
  157. end if
  158. END SUB
  159. SUB GetSerialPortsList (szSymbol$) STATIC
  160. if FGetSerialPortsList(szSymbol$) = 0 then
  161. ERROR STFERR
  162. end if
  163. END SUB
  164. FUNCTION HasMonochromeDisplay STATIC AS INTEGER
  165. HasMonochromeDisplay = FHasMonochromeDisplay
  166. END FUNCTION
  167. FUNCTION HasMouseInstalled STATIC AS INTEGER
  168. HasMouseInstalled = FHasMouseInstalled
  169. END FUNCTION
  170. FUNCTION DoesDirExist (szDir$) STATIC AS INTEGER
  171. DoesDirExist = FDirExists(szDir$)
  172. END FUNCTION
  173. FUNCTION DoesIniSectionExist (szFile$, szSect$) STATIC AS INTEGER
  174. DoesIniSectionExist = FDoesIniSectionExist(szFile$, szSect$)
  175. END FUNCTION
  176. FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) STATIC AS INTEGER
  177. DoesIniKeyExist = FDoesIniKeyExist(szFile$, szSect$, szKey$)
  178. END FUNCTION
  179. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC AS STRING
  180. cb% = 512
  181. szBuf$ = STRING$(cb%, 32)
  182. cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  183. GetIniKeyString = szBuf$
  184. szBuf$ = ""
  185. END FUNCTION
  186.